home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGO.ARC / KEY.POG < prev    next >
Encoding:
Text File  |  1985-11-20  |  107 b   |  15 lines
  1.  
  2. function wkey()
  3. {
  4. int w;
  5.  
  6. loop
  7.     {
  8.     w = keyboard();
  9.     if (w)
  10.         return(w);
  11.     }
  12. }
  13.  
  14. print(wkey())
  15.